home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 2: CDPD 1 / Almathera Ten on Ten - Disc 2: CDPD 1.iso / pd / 051-075 / 073 / xplor / xplor.asm < prev   
Assembly Source File  |  1995-03-13  |  5KB  |  275 lines
  1. *---------------------------------------------------------------------------
  2. *  XPLOR.ASM
  3. *
  4. *  A program to explore the various structures of the Amiga.
  5. *  Starting with Execbase....
  6. * 
  7. *---------------------------------------------------------------------------
  8.  
  9. begin    jmp    start
  10.  
  11.     include    "macros.basic"
  12.  
  13.     use    libs        ;include library functions
  14.  
  15.     use    doslib        ;All libraries listed will be 
  16. *    use    intib        ;enabled for opening/closing
  17. *    use    gfxlib        ;with the 'dolibs' and 'exit'
  18. *    use    dfontlib    ;macros.
  19. *    use    clistlib
  20. *    use    layerslib
  21. *    use    ffplib
  22. *    use    translib
  23. *    use    mathdoublib
  24. *    use    speechlib
  25. *    use    iconlib
  26.  
  27.     use    b2h    ;binary to hex ASCII
  28.     use    prt    ;print
  29. *    use    scnull    ;scan for NULL
  30. *    use    copy    ;copy memory
  31. *    use    scm    ;compare strings
  32. *    use    sln    ;get length of string
  33. *    use    ins    ;INSTRING function
  34. *    use    dbug    ;debugging routines
  35. *    use    arg    ;arg parser routines
  36.     use    leadspc    ;replace leading ASCII 0 to spaces (ldspc)
  37.     
  38.     include    "macros.opt"
  39.     include "macros.data"
  40.  
  41.     XTRN    Output
  42.     XTRN    Write
  43.     XTRN    Permit
  44.     XTRN    Forbid
  45.  
  46. *--------------
  47. * Subroutines
  48. *--------------
  49.     CNOP    0,4
  50. menu    printz    #menutext
  51.     rts
  52.  
  53. nxtnode    move.l    flink,a0    ;get next node address
  54.     move.l    a0,nodeptr    ; and make it current
  55.     move.l    (a0),flink    ;get new link
  56.     rts
  57.  
  58.  
  59.  
  60. dmplist    cmp.l    #0,flink    ;see if link is zero
  61.     beq    endump        ;if zero, then we are at end of list
  62.  
  63.     move.l    nodeptr,a0    ;get node address
  64.     binhex    a0,buff        ;convert address to hex string
  65.     ldspc    buff        ;remove leading zeros
  66.     printz    #buff        ;print address
  67.     printz    #dash        ;   and separator
  68.     move.l    nodeptr,a0    ;recover address of node
  69.     adda.l    #10,a0        ;point at address of libname
  70.     printz    (a0)        ;print libname
  71.     printz    #newline
  72.     jsr    nxtnode        ;get next node
  73.     bra    dmplist        ; and go back to process
  74. endump    rts
  75.  
  76.  
  77. *--------------
  78. * Main Program
  79. *--------------
  80.     CNOP    0,4
  81.  
  82. start    dolibs            ;open all libraries as per list in 'use'
  83.  
  84.     bne    libsok
  85.     exit    100
  86.  
  87. libsok    call    Forbid(a6)
  88.     move.l    dos,a6
  89.     call    Output(a6)
  90.     move.l    d0,stdout
  91.  
  92.     move.l    (AbsBase),d1    ;get Execbase pointer
  93.     move.l    #9,d0        ;loop counter
  94.     move.l    #exbase,a1    ;start of table of offsets
  95. loop1    add.l    d1,(a1)+    ;generate list addresses
  96.     dbf    d0,loop1    ; in list table
  97.  
  98. main    jsr    menu        ;choose list to look at. (Stub now)
  99.  
  100.  
  101. *--------------------
  102. * Dump library list
  103. *--------------------
  104.  
  105. libr    move.l    (liblist),a0    ;get pointer to library node
  106.     move.l    a0,nodeptr    ; and save it
  107.     move.l    (a0),flink    ;save link to next node
  108.  
  109.     jsr    nxtnode        ;set up for first lib node
  110.  
  111.     jsr    dmplist
  112.  
  113.     printz    #libsdone
  114.  
  115.  
  116. *------------------
  117. * Dump device list
  118. *------------------
  119.  
  120. devs    move.l    (devlist),a0
  121.     move.l    a0,nodeptr
  122.     move.l    (a0),flink
  123.  
  124.     jsr    nxtnode
  125.  
  126.     jsr    dmplist
  127.  
  128.     printz    #devsdone
  129.  
  130.  
  131. *--------------------
  132. * Dump resource list
  133. *--------------------
  134.  
  135. res    move.l    (reslist),a0
  136.     move.l    a0,nodeptr
  137.     move.l    (a0),flink
  138.  
  139.     jsr    nxtnode
  140.  
  141.     jsr    dmplist
  142.  
  143.     printz    #resdone
  144.  
  145.  
  146. *---------------------
  147. * Dump TaskReady list
  148. *---------------------
  149.  
  150. trdy    move.l    (trdylist),a0
  151.     move.l    a0,nodeptr
  152.     move.l    (a0),flink
  153.  
  154.     jsr    nxtnode
  155.  
  156.     jsr    dmplist
  157.  
  158.     printz    #trdydone
  159.  
  160. *----------------------
  161. * Dump Taskwaiting list
  162. *----------------------
  163.  
  164. twait    move.l    (twtlist),a0
  165.     move.l    a0,nodeptr
  166.     move.l    (a0),flink
  167.  
  168.     jsr    nxtnode
  169.  
  170.     jsr    dmplist
  171.  
  172.     printz    #twtdone
  173.  
  174. *----------------------
  175. * Dump Memory list
  176. *----------------------
  177.  
  178. memory    move.l    (memlist),a0
  179.     move.l    a0,nodeptr
  180.     move.l    (a0),flink
  181.  
  182.     jsr    nxtnode
  183.  
  184.     jsr    dmplist
  185.  
  186.     printz    #memdone
  187.  
  188.  
  189. *----------------------
  190. * Dump Memory list
  191. *----------------------
  192.  
  193. irpt    move.l    (intrlist),a0
  194.     move.l    a0,nodeptr
  195.     move.l    (a0),flink
  196.  
  197.     jsr    nxtnode
  198.  
  199.     jsr    dmplist
  200.  
  201.     printz    #irptdone
  202.  
  203.  
  204. *----------------------
  205. * Dump Memory list
  206. *----------------------
  207.  
  208. ports    move.l    (portlist),a0
  209.     move.l    a0,nodeptr
  210.     move.l    (a0),flink
  211.  
  212.     jsr    nxtnode
  213.  
  214.     jsr    dmplist
  215.  
  216.     printz    #portsdone
  217.  
  218.  
  219. *----------------------
  220. * Dump Memory list
  221. *----------------------
  222.  
  223. semlist    move.l    (smlist),a0
  224.     move.l    a0,nodeptr
  225.     move.l    (a0),flink
  226.  
  227.     jsr    nxtnode
  228.  
  229.     jsr    dmplist
  230.  
  231.     printz    #semdone
  232.  
  233. *----------------------
  234.  
  235. done    move.l    AbsBase,a6
  236.     call    Permit(a6)
  237.     exit    0            ;normal return
  238.  
  239.  
  240. *===============================*
  241.     SECTION    BSS
  242.  
  243.     CNOP    0,4
  244. stdout    ds.l    1
  245. flink    ds.l    1
  246. nodeptr    ds.l    1
  247.  
  248.     SECTION    CODE
  249. exbase        dc.l    0    ;Address of Execbase
  250. memlist        dc.l    $142    ;Table of offsets for system lists
  251. reslist        dc.l    $150    ; These are offsets from Execbase
  252. devlist        dc.l    $15e    ; and Execbase will be added to each
  253. intrlist    dc.l    $16c    ; offset to give an absolute address
  254. liblist        dc.l    $17a    ; for the head of each list.
  255. portlist    dc.l    $188
  256. trdylist    dc.l    $196
  257. twtlist        dc.l    $1a4
  258. smlist        dc.l    $214
  259.  
  260. buff        dc.b    '        ',0
  261. dash        dc.b    ' - ',0
  262. newline        dc.b    10,0
  263. libsdone    dc.b    10,'  End of Library list',10,10,0
  264. devsdone    dc.b    10,'  End of Device list',10,10,0
  265. resdone        dc.b    10,'  End of Resource list',10,10,0
  266. trdydone    dc.b    10,'  End of TaskReady list',10,10,0
  267. twtdone        dc.b    10,'  End of TaskWaiting list',10,10,0
  268. memdone        dc.b    10,'  End of Memory list',10,10,0
  269. irptdone    dc.b    10,'  End of Interrupt list',10,10,0
  270. portsdone    dc.b    10,'  End of Port list',10,10,0
  271. semdone        dc.b    10,'  End of Semaphore list',10,10,0
  272. menutext    dc.b    ' Menu stuff.... stub now.',10,10,0
  273.  
  274.     end
  275.